10 CLR:SB=53265:DV=PEEK(186):IFDV<8THENDV=8
20 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB60000:FORT=1TO3000:NEXT
30 SYS57812"LIST ONE 40000",DV,0:POKE780,0:POKE781,64:POKE782,156:SYS65493
40 SC$(1)="[154] [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
50 SC$(2)=" [161]                                    [161]"
60 SC$(3)=" [161] [146][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187] [161]"
70 SC$(5)=" [161] [161][146][161] [161]"
80 SC$(6)=" [161] [146][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190] [161]"
90 SC$(7)=" [188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190]"
110 PRINT"[147]"CHR$(142):POKESB,PEEK(SB)AND239
120 PRINT"[155]     F1 - SELECTS START OF LISTING."
130 PRINT"     F7 - LISTS ONE LINE AT A TIME."
140 PRINT"        AFTER A RUN/STOP-RESTORE"
150 PRINT"       SYS 40000 RELINKS AUTOLIST"
160 PRINT"           PRESS ANY KEY TO":
170 PRINT"           ACTIVATE AUTOLIST":
180 PRINT"          AND RETURN TO BASIC";
190 PRINT"":PRINTSC$(1):PRINTSC$(2):PRINTSC$(3)
200 FORR=1TO17:PRINTSC$(5):NEXT
210 PRINTSC$(6):PRINTSC$(2):PRINTSC$(7):POKESB,PEEK(SB)OR16
220 GETD$:IFD$=""THEN220
230 SYS40000:PRINT"[147]"CHR$(9):POKE53280,14:POKE53281,6:POKE646,14:NEW
10000 OPEN15,8,15,"S0:LIST ONE BOOT":CLOSE15:SAVE"LIST ONE BOOT",8
10010 VERIFY"LIST ONE BOOT",8:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[204] [201] [211] [212]    [207] [206] [197]":Z$(1)="BY [210]OBERT [205]ARKLAND
60040 Z$(2)[178]"(LEN) 1994 BY (null)OFTDISK (null)UBLISHING"[170][199](13)
60050 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="[210]EPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING"
60090 Z$(8)="1-800-831-2694 OR 1-318-221-8718.":POKE214,12:PRINT
60100 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN